Tech Arsenal 1/Tech Arsenal (Arsenal Computer).ISO/tek-02/tpapi1.zip/NWFSSERV.PA1

Text File | 1991-12-04 | 7KB | 130 lines

{!R! FONT 15; FTMD 15; EXIT;}


{***************************************************************************}
{** Program : NWFFSERV                                                    **}
{***************************************************************************}
{** Version : 1.0b            ** Started : 11/11/91  ** ENDed :   /  /    **}
{***************************************************************************}
{******************************** Description ******************************}
{***************************************************************************}
{** OOP library for Netware API                                           **}
{**                                                                       **}
{** This unit forms the second level object : FILESERVER                  **}
{** This object is a descandent of          : NETWARE                     **}
{**                                                                       **}
{**                                                                       **}
{**                                                                       **}
{**                                                                       **}
{***************************************************************************}
{******************************** Information ******************************}
{***************************************************************************}
{**                                                                       **}
{**                                                                       **}
{**                                                                       **}
{**                                                                       **}
{** This code is (c) 1991 Tony Covelli,                                   **}
{** Portions (c) Novell Inc,                                              **}
{**                                                                       **}
{**                                                                       **}
{***************************************************************************}

{$I NETWARE.INC}

UNIT NWFSSERV;

INTERFACE

USES

  netware, nwvar;

TYPE

  pFileServerOBJ = ^FileServerOBJ;
  FileServerOBJ  = object (NetwareOBJ)

    constructor Init;

    FUNCTION    CheckConsolePrivileges : WORD;

    FUNCTION    CheckNetwareVersion             (MinimumVersion, MinimumSubVersion, MinimumRevision,
                                                 MinimumSFT, MinimumTTS : WORD) : WORD;

    FUNCTION    ClearConnectionNumber           (ConnectionNumber : WORD) : WORD;

    FUNCTION    DisableFileServerLogin : WORD;

    FUNCTION    DisableTransactionTracking : WORD;

    FUNCTION    DownFileServer                  (ForceFlag : WORD) : WORD;

    FUNCTION    EnableFileServerLogin : WORD;

    FUNCTION    EnableTransactionTracking : WORD;

    FUNCTION    GetBinderyObjectDiskSpaceLeft   (ConnectionID : WORD; ObjectID : OT_BinderyID;
                                                 VAR SystemElapsedTime, UnusedDiskBlocks : LONGINT;
                                                 VAR RestrictionEnforced : WORD) : WORD;

    FUNCTION    GetConnectionsOpenFiles         (ConnectionID, ConnectionNumber : WORD;
                                                 VAR LastRecord, LastTask : WORD; StructSize : WORD;
                                                 VAR OpenFiles : Conn_Open_Files) : WORD;

    FUNCTION    GetConnectionsSemaphores        (ConnectionID, ConnectionNumber : WORD;
                                                 VAR LastRecord, LastTask : WORD; StructSize : WORD;
                                                 VAR OpenSemaphores : Conn_Semaphore ) : WORD;

    FUNCTION    GetDiskCacheStats               (ConnectionID, StructSize : WORD;
                                                 VAR CacheStats : Disk_Cache_Stats) : WORD;

    FUNCTION    GetDiskChannelStats             (ConnectionID, ChannelNumber, StructSize : WORD;
                                                 VAR ChannelStats : Disk_Channel_Stats) : WORD;

    FUNCTION    GetDiskUtilization              (ObjectID : OT_BinderyID; VolumeNumber : BYTE;
                                                 VAR UsedDirectories, UsedFiles, UsedBlocks : LONGINT) : WORD;

    FUNCTION    GetDriveMappingTable            (ConnectionID, StructSize : WORD;
                                                 VAR DriveMappingTable : Drive_Map_Table) : WORD;

    FUNCTION    GetFileServerDateAndTime        (VAR DateAndTime : Byte7ArrayType) : WORD;

    FUNCTION    GetFileServerDescriptionStrings (VAR CompanyName, Revision : String80Type;
                                                 VAR RevisionDate : String24Type;
                                                 VAR CopyrightNotice : String255Type) : WORD;

    FUNCTION    GetFileServerLANIOStats         (ConnectionID, StructSize : WORD;
                                                 VAR ServerLANIOStats : Server_Lan_IO) : WORD;

    FUNCTION    GetFileServerLoginStatus        (VAR LoginEnabledFlag : WORD) : WORD;

    FUNCTION    GetFileServerMiscInformation    (ConnectionID, StructSize : WORD;
                                                 VAR MiscInfo : Server_Misc_Info) : WORD;

    PROCEDURE   GetFileServerName               (ConnectionID : WORD; VAR FileServerName : ObjectNameType);

    FUNCTION    GetFileSystemStatistics         (ConnectionID, StructSize : WORD;
                                                 VAR FileSystemStats : File_Sys_Stats) : WORD;

    FUNCTION    GetLANDriverConfigInfo          (ConnectionID : WORD; LANBoardNumber : BYTE; StructSize : WORD;
                                                 VAR LANDriverConfig : LAN_Config) : WORD;

    FUNCTION    GetPathFromDirectoryEntry       (ConnectionID : WORD; VolumeNumber : BYTE; DirectoryEntry : WORD;
                                                 VAR DirectoryPath : PathNameType) : WORD;

    FUNCTION    GetPhysicalDiskStats            (ConnectionID : WORD; PhysicalDiskNumber : BYTE; StructSize : WORD;
                                                 VAR PhysicalDiskStats : Phys_Disk_Stats;
                                                 VAR DriveDefinition : String64Type) : WORD;

    FUNCTION    GetServerInformation            (VAR FileServerInformation : File_Serv_Info) : WORD;

    FUNCTION    SendConsoleBroadcast            (Message : BroadcastMessageType; ConnectionCount : WORD;
                                                 ConnectionList : ConnectionListType) : WORD;

    FUNCTION    SetFileServerDateAndTime        (Year, Month, Day, Hour, Minute, Second : WORD) : WORD;

    destructor  Done; virtual;

  END;